home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / mcode_01 / source / general / delefile.s < prev    next >
Encoding:
Text File  |  1995-04-27  |  1.0 KB  |  32 lines
  1. * Program     : Delete a file
  2. * Author    : Stephen McNabb
  3. * Creation date : 15th February 1995
  4. * Last update    : 15th February 1995
  5. * Parameters    : Address of filename to be deleted
  6. * Output    : A negative value in d0 will show there was an error
  7.  
  8. start:    jsr    cls        /clear the screen
  9.     move.l    #file,-(sp)    /move address of filename to stack
  10.     move.w    #$41,-(sp)    /use Fdelete() function
  11.     trap    #1        /use gemdos
  12.     addq.l    #6,-(sp)    /tidy up stack
  13.  
  14.     cmpi.b    #0,d0        /check to see if there was an error
  15.     blt    err        /if there is display an error message
  16.     
  17.     move.l    #success,d0    /else move address of success message into d0
  18.     bra    skip        /and skip the next line
  19. err:    move.l    #error,d0    /move address of error message into d0
  20. skip:    jsr    ptext        /display message on screen
  21.     
  22. end:    bra    exit        /exit from program
  23.  
  24.     include "\SOURCE\FUNCTION.S"    /include standard functions
  25.  
  26. *** Program Data ***
  27.     
  28. file:    dc.b    '\TEST.S',0        /file to be deleted
  29. success:dc.b    'File deleted',0    /success message
  30. error:    dc.b    'Error!',0        /error message
  31.     
  32. *** End of file ***